home *** CD-ROM | disk | FTP | other *** search
/ PC go! 2008 April / PCgo 2008-04 (DVD).iso / interface / contents / demoversionen_3846 / 13664 / files / Data1.cab / createct.bas < prev    next >
Encoding:
BASIC Source File  |  2001-10-16  |  1.1 KB  |  50 lines
  1. 'Script to create CoordText Turbo Shape and add it to a TurboCAD drawing
  2. Global Const gkGRAPHIC = &H0B
  3. Global Const cartesian = 2
  4. sub Main()
  5.     Dim g As Long
  6.     Dim r As Long
  7.     Dim v As Long
  8.     
  9.     Dim e As String    
  10.  
  11.     'Create a graphic with kind = gkGraphic and Regen Method
  12.     'CoordText.TCWCoordText.  TCWGraphicCreate will cause OnNewGraphic
  13.     'to be called
  14.     g = TCWGraphicCreate(gkGraphic, "CoordText.TCWCoordText")
  15.  
  16.     'if we got an error, display error message and stop
  17.     if (TCWLastErrorGet(e) <> 0) Then
  18.         msgbox e
  19.         stop
  20.     end if
  21.  
  22.     'Need up update properties to get RegenGraphic to be called
  23.     e = TCWGraphicPropertySet(g, "CoordType", cartesian)    
  24.     
  25.     if (TCWLastErrorGet(e) <> 0) Then
  26.         msgbox e
  27.     end if
  28.  
  29.     'Let's change the color of our CoordText shape as well
  30.     e = TCWGraphicPropertySet(g, "PenColor", &H000000FF)
  31.  
  32.     if (TCWLastErrorGet(e) <> 0) Then
  33.         msgbox e
  34.     end if
  35.  
  36.     'Add the graphic to the drawing    
  37.     TCWGraphicAppend 0, g
  38.  
  39.     if (TCWLastErrorGet(e) <> 0) Then
  40.         msgbox e
  41.     end if
  42.  
  43.     'Force the graphic to be drawn on the drawing
  44.     TCWGraphicDraw g, 0
  45.     if (TCWLastErrorGet(e) <> 0) Then
  46.         msgbox e
  47.     end if
  48. end Sub
  49.  
  50.